/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Frontier 4.2.3 / UserLand Frontier™ / UserLand Frontier™.rsrc / scpt_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 74 61 62 6c 00 01 03 f0 | 00 00 1c 5c 00 00 00 14 |tabl....|...\....|
|00000010| 00 00 00 00 0c 01 00 00 | 00 08 00 00 0e 23 0c 01 |........|.....#..|
|00000020| 00 00 0e 29 07 5f 73 6f | 75 72 63 65 00 00 0e 17 |...)._so|urce....|
|00000030| c7 74 68 69 73 20 73 63 | 72 69 70 74 20 69 73 20 |.this sc|ript is |
|00000040| 65 6d 62 65 64 64 65 64 | 20 69 6e 20 61 6e 79 20 |embedded| in any |
|00000050| 61 70 70 20 74 68 61 74 | 20 77 61 6e 74 73 20 74 |app that| wants t|
|00000060| 6f 20 75 73 65 20 49 6f | 77 61 20 52 75 6e 74 69 |o use Io|wa Runti|
|00000070| 6d 65 0d 09 c7 69 74 27 | 73 20 69 6e 20 27 73 63 |me...it'|s in 'sc|
|00000080| 70 74 27 20 72 65 73 6f | 75 72 63 65 20 31 32 38 |pt' reso|urce 128|
|00000090| 0d 09 09 c7 74 6f 20 63 | 72 65 61 74 65 20 74 68 |....to c|reate th|
|000000a0| 65 20 72 65 73 6f 75 72 | 63 65 2c 20 64 6f 20 74 |e resour|ce, do t|
|000000b0| 68 69 73 20 61 66 74 65 | 72 20 73 65 74 74 69 6e |his afte|r settin|
|000000c0| 67 20 74 68 65 20 66 75 | 6c 6c 20 70 61 74 68 20 |g the fu|ll path |
|000000d0| 6f 66 20 27 66 27 3a 0d | 09 09 09 c7 6c 6f 63 61 |of 'f':.|....loca|
|000000e0| 6c 20 28 78 2c 20 66 20 | 3d 20 22 69 6f 77 61 72 |l (x, f |= "iowar|
|000000f0| 75 6e 74 69 6d 65 2e 72 | 73 72 63 22 29 3b 20 6f |untime.r|src"); o|
|00000100| 73 61 2e 63 6f 6d 70 69 | 6c 65 20 28 40 74 6f 79 |sa.compi|le (@toy|
|00000110| 73 2e 69 6f 77 61 66 72 | 6f 6e 74 69 65 72 2c 20 |s.iowafr|ontier, |
|00000120| 66 61 6c 73 65 2c 20 40 | 78 29 3b 20 72 65 7a 2e |false, @|x); rez.|
|00000130| 70 75 74 52 65 73 6f 75 | 72 63 65 20 28 66 2c 20 |putResou|rce (f, |
|00000140| 27 73 63 70 74 27 2c 20 | 31 32 38 2c 20 40 78 29 |'scpt', |128, @x)|
|00000150| 0d 09 c7 69 74 27 73 20 | 63 61 6c 6c 65 64 20 66 |...it's |called f|
|00000160| 72 6f 6d 20 69 6f 77 61 | 66 72 6f 6e 74 69 65 72 |rom iowa|frontier|
|00000170| 2e 63 0d 0d 6f 6e 20 69 | 6e 69 74 20 28 74 61 62 |.c..on i|nit (tab|
|00000180| 6c 65 6e 61 6d 65 2c 20 | 70 61 63 6b 65 64 74 61 |lename, |packedta|
|00000190| 62 6c 65 2c 20 66 73 61 | 70 70 2c 20 66 69 6c 65 |ble, fsa|pp, file|
|000001a0| 6c 69 73 74 29 20 7b 20 | c7 73 74 61 72 74 20 61 |list) { |.start a|
|000001b0| 20 63 61 72 64 0d 09 c7 | 63 72 65 61 74 65 20 61 | card...|create a|
|000001c0| 20 74 61 62 6c 65 20 66 | 6f 72 20 74 68 65 20 63 | table f|or the c|
|000001d0| 61 72 64 2c 20 72 75 6e | 20 74 68 65 20 73 74 61 |ard, run| the sta|
|000001e0| 72 74 43 61 72 64 20 73 | 63 72 69 70 74 0d 09 09 |rtCard s|cript...|
|000001f0| c7 77 65 20 75 6e 70 61 | 63 6b 20 74 68 65 20 74 |.we unpa|ck the t|
|00000200| 61 62 6c 65 20 61 73 20 | 61 20 73 75 62 2d 74 61 |able as |a sub-ta|
|00000210| 62 6c 65 20 69 6e 20 73 | 79 73 74 65 6d 2e 63 6f |ble in s|ystem.co|
|00000220| 6d 70 69 6c 65 72 2e 63 | 61 72 64 73 0d 09 09 09 |mpiler.c|ards....|
|00000230| c7 6f 72 20 63 72 65 61 | 74 65 20 61 6e 20 65 6d |.or crea|te an em|
|00000240| 70 74 79 20 6f 6e 65 20 | 69 66 20 70 61 63 6b 65 |pty one |if packe|
|00000250| 64 74 61 62 6c 65 20 69 | 73 20 65 6d 70 74 79 0d |dtable i|s empty.|
|00000260| 09 09 c7 64 6d 62 20 39 | 2f 33 30 2f 39 36 3a 20 |...dmb 9|/30/96: |
|00000270| 77 65 20 64 6f 6e 27 74 | 20 63 61 6c 6c 20 73 74 |we don't| call st|
|00000280| 61 72 74 63 61 72 64 20 | 61 6e 79 6d 6f 72 65 0d |artcard |anymore.|
|00000290| 09 09 09 c7 69 74 27 73 | 20 74 6f 6f 20 73 6f 6f |....it's| too soo|
|000002a0| 6e 2e 20 74 68 65 20 72 | 75 6e 74 69 6d 65 20 77 |n. the r|untime w|
|000002b0| 69 6c 6c 20 63 61 6c 6c | 20 69 74 20 64 69 72 65 |ill call| it dire|
|000002c0| 63 74 6c 79 20 61 66 74 | 65 72 20 0d 09 09 09 c7 |ctly aft|er .....|
|000002d0| 64 6f 69 6e 67 20 61 6c | 6c 20 6f 66 20 69 74 73 |doing al|l of its|
|000002e0| 20 64 65 66 61 75 6c 74 | 20 73 65 74 75 70 2e 0d | default| setup..|
|000002f0| 09 09 09 c7 61 6c 73 6f | 2c 20 73 74 61 72 74 63 |....also|, startc|
|00000300| 61 72 64 20 6e 65 65 64 | 73 20 74 6f 20 72 75 6e |ard need|s to run|
|00000310| 20 69 6e 20 74 68 65 20 | 63 61 72 64 20 63 6f 6e | in the |card con|
|00000320| 74 65 78 74 2c 20 77 68 | 69 63 68 20 0d 09 09 09 |text, wh|ich ....|
|00000330| c7 6e 6f 6e 65 20 6f 66 | 20 74 68 65 73 65 20 65 |.none of| these e|
|00000340| 76 65 6e 74 20 68 61 6e | 64 6c 65 72 73 20 72 65 |vent han|dlers re|
|00000350| 71 75 69 72 65 2e 0d 09 | 09 c7 64 6d 62 20 39 2f |quire...|..dmb 9/|
|00000360| 31 33 2f 39 36 3a 20 77 | 65 20 6e 6f 20 6c 6f 6e |13/96: w|e no lon|
|00000370| 67 65 72 20 73 75 70 70 | 6f 72 74 20 63 61 72 64 |ger supp|ort card|
|00000380| 73 20 61 73 20 61 70 70 | 73 3a 0d 09 09 09 c7 73 |s as app|s:.....s|
|00000390| 65 74 20 75 70 20 74 77 | 6f 20 69 74 65 6d 73 20 |et up tw|o items |
|000003a0| 69 6e 20 74 68 65 20 74 | 61 62 6c 65 3a 20 66 69 |in the t|able: fi|
|000003b0| 6c 65 73 20 61 6e 64 20 | 70 61 74 68 0d 09 09 09 |les and |path....|
|000003c0| 09 c7 66 69 6c 65 73 20 | 69 73 20 61 20 6c 69 73 |..files |is a lis|
|000003d0| 74 2c 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 74 68 |t, conta|ining th|
|000003e0| 65 20 66 69 6c 65 73 20 | 64 72 6f 70 70 65 64 20 |e files |dropped |
|000003f0| 6f 6e 74 6f 20 74 68 65 | 20 61 70 70 0d 09 09 09 |onto the| app....|
|00000400| 09 c7 79 6f 75 20 63 61 | 6e 20 72 65 66 65 72 20 |..you ca|n refer |
|00000410| 74 6f 20 74 68 65 73 65 | 20 61 73 20 66 69 6c 65 |to these| as file|
|00000420| 73 20 5b 31 5d 2c 20 66 | 69 6c 65 73 20 5b 32 5d |s [1], f|iles [2]|
|00000430| 2c 20 65 74 63 2e 0d 09 | 09 09 09 c7 70 61 74 68 |, etc...|....path|
|00000440| 20 69 73 20 61 20 66 69 | 6c 65 20 73 70 65 63 20 | is a fi|le spec |
|00000450| 66 6f 72 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 |for the |applicat|
|00000460| 69 6f 6e 20 74 68 61 74 | 20 6f 70 65 6e 65 64 20 |ion that| opened |
|00000470| 74 68 65 20 63 61 72 64 | 0d 09 09 c7 69 66 20 74 |the card|....if t|
|00000480| 68 65 72 65 27 73 20 61 | 20 73 74 61 72 74 75 70 |here's a| startup|
|00000490| 20 73 63 72 69 70 74 20 | 69 6e 20 74 68 65 20 74 | script |in the t|
|000004a0| 61 62 6c 65 2c 20 77 65 | 20 72 75 6e 20 69 74 0d |able, we| run it.|
|000004b0| 09 09 c7 72 65 74 75 72 | 6e 73 20 74 68 65 20 6e |...retur|ns the n|
|000004c0| 61 6d 65 20 6f 66 20 74 | 68 65 20 74 61 62 6c 65 |ame of t|he table|
|000004d0| 20 77 65 20 63 72 65 61 | 74 65 64 20 66 6f 72 20 | we crea|ted for |
|000004e0| 74 68 65 20 63 61 72 64 | 0d 09 0d 09 c7 6d 61 6b |the card|.....mak|
|000004f0| 65 20 73 75 72 65 20 74 | 68 65 20 62 61 73 65 20 |e sure t|he base |
|00000500| 74 61 62 6c 65 20 65 78 | 69 73 74 73 0d 09 6c 6f |table ex|ists..lo|
|00000510| 63 61 6c 20 28 61 64 72 | 42 61 73 65 54 61 62 6c |cal (adr|BaseTabl|
|00000520| 65 20 3d 20 40 73 79 73 | 74 65 6d 2e 63 6f 6d 70 |e = @sys|tem.comp|
|00000530| 69 6c 65 72 2e 63 61 72 | 64 73 29 3b 0d 09 69 66 |iler.car|ds);..if|
|00000540| 20 6e 6f 74 20 64 65 66 | 69 6e 65 64 20 28 61 64 | not def|ined (ad|
|00000550| 72 42 61 73 65 54 61 62 | 6c 65 5e 29 20 7b 0d 09 |rBaseTab|le^) {..|
|00000560| 09 6e 65 77 20 28 74 61 | 62 6c 65 54 79 70 65 2c |.new (ta|bleType,|
|00000570| 20 61 64 72 42 61 73 65 | 54 61 62 6c 65 29 7d 3b | adrBase|Table)};|
|00000580| 0d 09 0d 09 69 66 20 73 | 69 7a 65 4f 66 20 28 74 |....if s|izeOf (t|
|00000590| 61 62 6c 65 6e 61 6d 65 | 29 20 3d 3d 20 30 20 7b |ablename|) == 0 {|
|000005a0| 20 c7 49 6f 77 61 20 52 | 75 6e 74 69 6d 65 20 64 | .Iowa R|untime d|
|000005b0| 6f 65 73 6e 27 74 20 68 | 61 76 65 20 61 20 6e 61 |oesn't h|ave a na|
|000005c0| 6d 65 2c 20 6d 61 6b 65 | 20 6f 6e 65 20 75 70 0d |me, make| one up.|
|000005d0| 09 09 74 61 62 6c 65 6e | 61 6d 65 20 3d 20 6e 61 |..tablen|ame = na|
|000005e0| 6d 65 4f 66 20 28 74 61 | 62 6c 65 2e 75 6e 69 71 |meOf (ta|ble.uniq|
|000005f0| 75 65 4e 61 6d 65 20 28 | 22 63 61 72 64 22 2c 20 |ueName (|"card", |
|00000600| 61 64 72 42 61 73 65 54 | 61 62 6c 65 29 5e 29 7d |adrBaseT|able)^)}|
|00000610| 3b 0d 09 0d 09 c7 75 6e | 70 61 63 6b 20 74 68 65 |;.....un|pack the|
|00000620| 20 63 61 72 64 27 73 20 | 74 61 62 6c 65 2c 20 6f | card's |table, o|
|00000630| 72 20 63 72 65 61 74 65 | 20 61 6e 20 65 6d 70 74 |r create| an empt|
|00000640| 79 20 6f 6e 65 20 69 66 | 20 69 74 20 64 6f 65 73 |y one if| it does|
|00000650| 6e 27 74 20 68 61 76 65 | 20 6f 6e 65 0d 09 6c 6f |n't have| one..lo|
|00000660| 63 61 6c 20 28 61 64 72 | 54 61 62 6c 65 20 3d 20 |cal (adr|Table = |
|00000670| 40 61 64 72 42 61 73 65 | 54 61 62 6c 65 5e 2e 5b |@adrBase|Table^.[|
|00000680| 74 61 62 6c 65 6e 61 6d | 65 5d 29 3b 0d 09 69 66 |tablenam|e]);..if|
|00000690| 20 73 69 7a 65 4f 66 20 | 28 70 61 63 6b 65 64 74 | sizeOf |(packedt|
|000006a0| 61 62 6c 65 29 20 3e 20 | 30 20 7b 0d 09 09 75 6e |able) > |0 {...un|
|000006b0| 70 61 63 6b 20 28 40 70 | 61 63 6b 65 64 74 61 62 |pack (@p|ackedtab|
|000006c0| 6c 65 2c 20 61 64 72 54 | 61 62 6c 65 29 7d 0d 09 |le, adrT|able)}..|
|000006d0| 65 6c 73 65 20 7b 0d 09 | 09 6e 65 77 20 28 74 61 |else {..|.new (ta|
|000006e0| 62 6c 65 54 79 70 65 2c | 20 61 64 72 54 61 62 6c |bleType,| adrTabl|
|000006f0| 65 29 7d 3b 0d 09 0d 09 | c7 69 6e 69 74 69 61 6c |e)};....|.initial|
|00000700| 69 7a 65 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 73 |ize the |contents|
|00000710| 20 6f 66 20 74 68 65 20 | 74 61 62 6c 65 0d 09 69 | of the |table..i|
|00000720| 66 20 64 65 66 69 6e 65 | 64 20 28 61 64 72 54 61 |f define|d (adrTa|
|00000730| 62 6c 65 5e 2e 70 61 74 | 68 29 20 7b 20 c7 67 65 |ble^.pat|h) { .ge|
|00000740| 74 20 72 69 64 20 6f 66 | 20 6f 6c 64 20 66 69 65 |t rid of| old fie|
|00000750| 6c 64 0d 09 09 64 65 6c | 65 74 65 20 28 40 61 64 |ld...del|ete (@ad|
|00000760| 72 54 61 62 6c 65 5e 2e | 70 61 74 68 29 7d 3b 0d |rTable^.|path)};.|
|00000770| 09 69 66 20 64 65 66 69 | 6e 65 64 20 28 61 64 72 |.if defi|ned (adr|
|00000780| 54 61 62 6c 65 5e 2e 66 | 69 6c 65 73 29 20 7b 20 |Table^.f|iles) { |
|00000790| c7 74 72 61 6e 73 69 74 | 69 6f 6e 20 66 72 6f 6d |.transit|ion from|
|000007a0| 20 61 20 74 61 62 6c 65 | 20 74 6f 20 61 20 6c 69 | a table| to a li|
|000007b0| 73 74 0d 09 09 64 65 6c | 65 74 65 20 28 40 61 64 |st...del|ete (@ad|
|000007c0| 72 54 61 62 6c 65 5e 2e | 66 69 6c 65 73 29 7d 3b |rTable^.|files)};|
|000007d0| 0d 09 c7 61 64 72 54 61 | 62 6c 65 5e 2e 70 61 74 |...adrTa|ble^.pat|
|000007e0| 68 20 3d 20 66 73 61 70 | 70 20 c7 69 74 27 73 20 |h = fsap|p .it's |
|000007f0| 73 74 69 6c 6c 20 63 61 | 6c 6c 65 64 20 61 20 70 |still ca|lled a p|
|00000800| 61 74 68 2c 20 6a 75 73 | 74 20 6c 69 6b 65 20 64 |ath, jus|t like d|
|00000810| 65 73 6b 74 6f 70 20 73 | 63 72 69 70 74 73 20 26 |esktop s|cripts &|
|00000820| 20 64 72 6f 70 6c 65 74 | 73 0d 09 c7 69 66 20 66 | droplet|s...if f|
|00000830| 69 6c 65 6c 69 73 74 20 | 3d 3d 20 6e 69 6c 0d 09 |ilelist |== nil..|
|00000840| 09 c7 61 64 72 54 61 62 | 6c 65 5e 2e 66 69 6c 65 |..adrTab|le^.file|
|00000850| 73 20 3d 20 7b 7d 0d 09 | c7 65 6c 73 65 0d 09 09 |s = {}..|.else...|
|00000860| c7 61 64 72 54 61 62 6c | 65 5e 2e 66 69 6c 65 73 |.adrTabl|e^.files|
|00000870| 20 3d 20 66 69 6c 65 6c | 69 73 74 0d 09 0d 09 c7 | = filel|ist.....|
|00000880| 70 61 74 63 68 20 46 72 | 6f 6e 74 69 65 72 27 73 |patch Fr|ontier's|
|00000890| 20 70 61 74 68 73 20 74 | 61 62 6c 65 2c 20 73 77 | paths t|able, sw|
|000008a0| 69 74 63 68 20 69 6e 20 | 74 68 69 73 20 63 61 72 |itch in |this car|
|000008b0| 64 27 73 20 6d 65 6e 75 | 20 62 61 72 20 69 66 20 |d's menu| bar if |
|000008c0| 69 74 20 68 61 73 20 6f | 6e 65 0d 09 63 61 72 64 |it has o|ne..card|
|000008d0| 2e 73 65 74 47 6c 6f 62 | 61 6c 54 61 62 6c 65 20 |.setGlob|alTable |
|000008e0| 28 61 64 72 54 61 62 6c | 65 2c 20 74 72 75 65 29 |(adrTabl|e, true)|
|000008f0| 3b 0d 09 0d 09 c7 69 66 | 20 64 65 66 69 6e 65 64 |;.....if| defined|
|00000900| 20 28 61 64 72 54 61 62 | 6c 65 5e 2e 73 74 61 72 | (adrTab|le^.star|
|00000910| 74 43 61 72 64 29 0d 09 | 09 c7 69 66 20 72 75 6e |tCard)..|..if run|
|00000920| 6d 6f 64 65 0d 09 09 09 | c7 61 64 72 54 61 62 6c |mode....|.adrTabl|
|00000930| 65 5e 2e 73 74 61 72 74 | 43 61 72 64 20 28 29 0d |e^.start|Card ().|
|00000940| 09 09 c7 65 6c 73 65 0d | 09 09 09 c7 74 72 79 0d |...else.|....try.|
|00000950| 09 09 09 09 c7 61 64 72 | 54 61 62 6c 65 5e 2e 73 |.....adr|Table^.s|
|00000960| 74 61 72 74 43 61 72 64 | 20 28 29 0d 09 09 09 c7 |tartCard| ().....|
|00000970| 65 6c 73 65 0d 09 09 09 | 09 c7 61 64 72 54 61 62 |else....|..adrTab|
|00000980| 6c 65 5e 2e 73 74 61 72 | 74 43 61 72 64 45 72 72 |le^.star|tCardErr|
|00000990| 6f 72 20 3d 20 74 72 79 | 45 72 72 6f 72 0d 09 72 |or = try|Error..r|
|000009a0| 65 74 75 72 6e 20 28 74 | 61 62 6c 65 6e 61 6d 65 |eturn (t|ablename|
|000009b0| 29 7d 3b 0d 6f 6e 20 63 | 6c 6f 73 20 28 74 61 62 |)};.on c|los (tab|
|000009c0| 6c 65 6e 61 6d 65 29 20 | 7b 20 c7 63 6c 6f 73 65 |lename) |{ .close|
|000009d0| 20 61 20 63 61 72 64 0d | 09 6c 6f 63 61 6c 20 28 | a card.|.local (|
|000009e0| 61 64 72 54 61 62 6c 65 | 20 3d 20 40 73 79 73 74 |adrTable| = @syst|
|000009f0| 65 6d 2e 63 6f 6d 70 69 | 6c 65 72 2e 63 61 72 64 |em.compi|ler.card|
|00000a00| 73 29 3b 0d 09 69 66 20 | 64 65 66 69 6e 65 64 20 |s);..if |defined |
|00000a10| 28 61 64 72 54 61 62 6c | 65 5e 29 20 7b 0d 09 09 |(adrTabl|e^) {...|
|00000a20| 6c 6f 63 61 6c 20 28 61 | 64 72 54 61 62 6c 65 20 |local (a|drTable |
|00000a30| 3d 20 40 61 64 72 54 61 | 62 6c 65 5e 2e 5b 74 61 |= @adrTa|ble^.[ta|
|00000a40| 62 6c 65 6e 61 6d 65 5d | 29 3b 0d 09 09 69 66 20 |blename]|);...if |
|00000a50| 64 65 66 69 6e 65 64 20 | 28 61 64 72 54 61 62 6c |defined |(adrTabl|
|00000a60| 65 5e 29 20 7b 0d 09 09 | 09 69 66 20 64 65 66 69 |e^) {...|.if defi|
|00000a70| 6e 65 64 20 28 61 64 72 | 54 61 62 6c 65 5e 2e 70 |ned (adr|Table^.p|
|00000a80| 61 72 65 6e 74 50 61 74 | 68 29 20 7b 0d 09 09 09 |arentPat|h) {....|
|00000a90| 09 63 61 72 64 2e 62 72 | 69 6e 67 43 61 72 64 54 |.card.br|ingCardT|
|00000aa0| 6f 46 72 6f 6e 74 20 28 | 66 69 6c 65 2e 66 69 6c |oFront (|file.fil|
|00000ab0| 65 46 72 6f 6d 50 61 74 | 68 20 28 61 64 72 54 61 |eFromPat|h (adrTa|
|00000ac0| 62 6c 65 5e 2e 70 61 72 | 65 6e 74 50 61 74 68 29 |ble^.par|entPath)|
|00000ad0| 29 7d 3b 0d 09 09 09 64 | 65 6c 65 74 65 20 28 61 |)};....d|elete (a|
|00000ae0| 64 72 54 61 62 6c 65 29 | 7d 3b 0d 09 09 72 65 74 |drTable)|};...ret|
|00000af0| 75 72 6e 20 28 74 72 75 | 65 29 7d 7d 3b 0d 6f 6e |urn (tru|e)}};.on|
|00000b00| 20 65 64 74 62 20 28 74 | 61 62 6c 65 6e 61 6d 65 | edtb (t|ablename|
|00000b10| 2c 20 77 69 6e 64 6f 77 | 74 69 74 6c 65 29 20 7b |, window|title) {|
|00000b20| 20 c7 65 64 69 74 20 74 | 68 65 20 74 61 62 6c 65 | .edit t|he table|
|00000b30| 20 65 6d 62 65 64 64 65 | 64 20 69 6e 20 74 68 65 | embedde|d in the|
|00000b40| 20 63 61 72 64 20 0d 09 | 6c 6f 63 61 6c 20 28 61 | card ..|local (a|
|00000b50| 64 72 54 61 62 6c 65 20 | 3d 20 40 73 79 73 74 65 |drTable |= @syste|
|00000b60| 6d 2e 63 6f 6d 70 69 6c | 65 72 2e 63 61 72 64 73 |m.compil|er.cards|
|00000b70| 2e 5b 74 61 62 6c 65 6e | 61 6d 65 5d 29 3b 0d 09 |.[tablen|ame]);..|
|00000b80| 74 61 72 67 65 74 2e 73 | 65 74 20 28 61 64 72 54 |target.s|et (adrT|
|00000b90| 61 62 6c 65 29 3b 0d 09 | 77 69 6e 64 6f 77 2e 73 |able);..|window.s|
|00000ba0| 65 74 54 69 74 6c 65 20 | 28 61 64 72 54 61 62 6c |etTitle |(adrTabl|
|00000bb0| 65 2c 20 77 69 6e 64 6f | 77 74 69 74 6c 65 29 3b |e, windo|wtitle);|
|00000bc0| 0d 09 65 64 69 74 20 28 | 61 64 72 54 61 62 6c 65 |..edit (|adrTable|
|00000bd0| 29 3b 0d 09 46 72 6f 6e | 74 69 65 72 2e 62 72 69 |);..Fron|tier.bri|
|00000be0| 6e 67 54 6f 46 72 6f 6e | 74 20 28 29 3b 0d 09 72 |ngToFron|t ();..r|
|00000bf0| 65 74 75 72 6e 20 28 74 | 72 75 65 29 7d 3b 0d 6f |eturn (t|rue)};.o|
|00000c00| 6e 20 67 65 74 74 20 28 | 74 61 62 6c 65 6e 61 6d |n gett (|tablenam|
|00000c10| 65 29 20 7b 20 c7 72 65 | 74 75 72 6e 20 74 68 65 |e) { .re|turn the|
|00000c20| 20 70 61 63 6b 65 64 20 | 74 61 62 6c 65 0d 09 6c | packed |table..l|
|00000c30| 6f 63 61 6c 20 28 64 61 | 74 61 29 3b 0d 09 70 61 |ocal (da|ta);..pa|
|00000c40| 63 6b 20 28 73 79 73 74 | 65 6d 2e 63 6f 6d 70 69 |ck (syst|em.compi|
|00000c50| 6c 65 72 2e 63 61 72 64 | 73 2e 5b 74 61 62 6c 65 |ler.card|s.[table|
|00000c60| 6e 61 6d 65 5d 2c 20 40 | 64 61 74 61 29 3b 0d 09 |name], @|data);..|
|00000c70| 72 65 74 75 72 6e 20 28 | 64 61 74 61 29 7d 3b 0d |return (|data)};.|
|00000c80| 6f 6e 20 73 65 74 74 20 | 28 74 61 62 6c 65 6e 61 |on sett |(tablena|
|00000c90| 6d 65 2c 20 6d 61 6a 6f | 72 73 77 69 74 63 68 29 |me, majo|rswitch)|
|00000ca0| 20 7b 20 c7 74 68 65 20 | 74 61 62 6c 65 20 62 65 | { .the |table be|
|00000cb0| 63 6f 6d 65 73 20 74 68 | 65 20 63 75 72 72 65 6e |comes th|e curren|
|00000cc0| 74 20 74 61 62 6c 65 0d | 09 c7 64 6d 62 20 39 2f |t table.|..dmb 9/|
|00000cd0| 36 2f 39 36 3a 20 61 66 | 74 65 72 20 6d 61 6b 69 |6/96: af|ter maki|
|00000ce0| 6e 67 20 73 75 72 65 20 | 74 68 65 20 74 61 62 6c |ng sure |the tabl|
|00000cf0| 65 20 65 78 69 73 74 73 | 2c 20 6c 65 74 20 63 61 |e exists|, let ca|
|00000d00| 72 64 2e 73 65 74 47 6c | 6f 62 61 6c 54 61 62 6c |rd.setGl|obalTabl|
|00000d10| 65 20 64 6f 20 74 68 65 | 20 77 6f 72 6b 0d 09 09 |e do the| work...|
|00000d20| c7 61 6c 73 6f 2c 20 68 | 61 6e 64 6c 65 20 65 6d |.also, h|andle em|
|00000d30| 70 74 79 20 73 74 72 69 | 6e 67 20 66 6f 72 20 77 |pty stri|ng for w|
|00000d40| 68 65 6e 20 61 20 63 61 | 72 64 20 69 73 20 73 77 |hen a ca|rd is sw|
|00000d50| 69 74 63 68 69 6e 67 20 | 6f 75 74 0d 09 0d 09 6c |itching |out....l|
|00000d60| 6f 63 61 6c 20 28 61 64 | 72 54 61 62 6c 65 29 3b |ocal (ad|rTable);|
|00000d70| 0d 09 69 66 20 74 61 62 | 6c 65 6e 61 6d 65 20 3d |..if tab|lename =|
|00000d80| 3d 20 22 22 20 7b 0d 09 | 09 61 64 72 54 61 62 6c |= "" {..|.adrTabl|
|00000d90| 65 20 3d 20 6e 69 6c 7d | 0d 09 65 6c 73 65 20 7b |e = nil}|..else {|
|00000da0| 0d 09 09 61 64 72 54 61 | 62 6c 65 20 3d 20 40 73 |...adrTa|ble = @s|
|00000db0| 79 73 74 65 6d 2e 63 6f | 6d 70 69 6c 65 72 2e 63 |ystem.co|mpiler.c|
|00000dc0| 61 72 64 73 2e 5b 74 61 | 62 6c 65 6e 61 6d 65 5d |ards.[ta|blename]|
|00000dd0| 3b 0d 09 09 69 66 20 6e | 6f 74 20 64 65 66 69 6e |;...if n|ot defin|
|00000de0| 65 64 20 28 61 64 72 54 | 61 62 6c 65 5e 29 20 7b |ed (adrT|able^) {|
|00000df0| 0d 09 09 09 6e 65 77 20 | 28 74 61 62 6c 65 54 79 |....new |(tableTy|
|00000e00| 70 65 2c 20 61 64 72 54 | 61 62 6c 65 29 7d 7d 3b |pe, adrT|able)}};|
|00000e10| 0d 09 72 65 74 75 72 6e | 20 28 63 61 72 64 2e 73 |..return| (card.s|
|00000e20| 65 74 47 6c 6f 62 61 6c | 54 61 62 6c 65 20 28 61 |etGlobal|Table (a|
|00000e30| 64 72 54 61 62 6c 65 2c | 20 6d 61 6a 6f 72 73 77 |drTable,| majorsw|
|00000e40| 69 74 63 68 29 29 7d 05 | 5f 77 69 74 68 00 00 0e |itch))}.|_with...|
|00000e50| 17 c7 74 68 69 73 20 73 | 63 72 69 70 74 20 69 73 |..this s|cript is|
|00000e60| 20 65 6d 62 65 64 64 65 | 64 20 69 6e 20 61 6e 79 | embedde|d in any|
|00000e70| 20 61 70 70 20 74 68 61 | 74 20 77 61 6e 74 73 20 | app tha|t wants |
|00000e80| 74 6f 20 75 73 65 20 49 | 6f 77 61 20 52 75 6e 74 |to use I|owa Runt|
|00000e90| 69 6d 65 0d 09 c7 69 74 | 27 73 20 69 6e 20 27 73 |ime...it|'s in 's|
|00000ea0| 63 70 74 27 20 72 65 73 | 6f 75 72 63 65 20 31 32 |cpt' res|ource 12|
|00000eb0| 38 0d 09 09 c7 74 6f 20 | 63 72 65 61 74 65 20 74 |8....to |create t|
|00000ec0| 68 65 20 72 65 73 6f 75 | 72 63 65 2c 20 64 6f 20 |he resou|rce, do |
|00000ed0| 74 68 69 73 20 61 66 74 | 65 72 20 73 65 74 74 69 |this aft|er setti|
|00000ee0| 6e 67 20 74 68 65 20 66 | 75 6c 6c 20 70 61 74 68 |ng the f|ull path|
|00000ef0| 20 6f 66 20 27 66 27 3a | 0d 09 09 09 c7 6c 6f 63 | of 'f':|.....loc|
|00000f00| 61 6c 20 28 78 2c 20 66 | 20 3d 20 22 69 6f 77 61 |al (x, f| = "iowa|
|00000f10| 72 75 6e 74 69 6d 65 2e | 72 73 72 63 22 29 3b 20 |runtime.|rsrc"); |
|00000f20| 6f 73 61 2e 63 6f 6d 70 | 69 6c 65 20 28 40 74 6f |osa.comp|ile (@to|
|00000f30| 79 73 2e 69 6f 77 61 66 | 72 6f 6e 74 69 65 72 2c |ys.iowaf|rontier,|
|00000f40| 20 66 61 6c 73 65 2c 20 | 40 78 29 3b 20 72 65 7a | false, |@x); rez|
|00000f50| 2e 70 75 74 52 65 73 6f | 75 72 63 65 20 28 66 2c |.putReso|urce (f,|
|00000f60| 20 27 73 63 70 74 27 2c | 20 31 32 38 2c 20 40 78 | 'scpt',| 128, @x|
|00000f70| 29 0d 09 c7 69 74 27 73 | 20 63 61 6c 6c 65 64 20 |)...it's| called |
|00000f80| 66 72 6f 6d 20 69 6f 77 | 61 66 72 6f 6e 74 69 65 |from iow|afrontie|
|00000f90| 72 2e 63 0d 0d 6f 6e 20 | 69 6e 69 74 20 28 74 61 |r.c..on |init (ta|
|00000fa0| 62 6c 65 6e 61 6d 65 2c | 20 70 61 63 6b 65 64 74 |blename,| packedt|
|00000fb0| 61 62 6c 65 2c 20 66 73 | 61 70 70 2c 20 66 69 6c |able, fs|app, fil|
|00000fc0| 65 6c 69 73 74 29 20 7b | 20 c7 73 74 61 72 74 20 |elist) {| .start |
|00000fd0| 61 20 63 61 72 64 0d 09 | c7 63 72 65 61 74 65 20 |a card..|.create |
|00000fe0| 61 20 74 61 62 6c 65 20 | 66 6f 72 20 74 68 65 20 |a table |for the |
|00000ff0| 63 61 72 64 2c 20 72 75 | 6e 20 74 68 65 20 73 74 |card, ru|n the st|
|00001000| 61 72 74 43 61 72 64 20 | 73 63 72 69 70 74 0d 09 |artCard |script..|
|00001010| 09 c7 77 65 20 75 6e 70 | 61 63 6b 20 74 68 65 20 |..we unp|ack the |
|00001020| 74 61 62 6c 65 20 61 73 | 20 61 20 73 75 62 2d 74 |table as| a sub-t|
|00001030| 61 62 6c 65 20 69 6e 20 | 73 79 73 74 65 6d 2e 63 |able in |system.c|
|00001040| 6f 6d 70 69 6c 65 72 2e | 63 61 72 64 73 0d 09 09 |ompiler.|cards...|
|00001050| 09 c7 6f 72 20 63 72 65 | 61 74 65 20 61 6e 20 65 |..or cre|ate an e|
|00001060| 6d 70 74 79 20 6f 6e 65 | 20 69 66 20 70 61 63 6b |mpty one| if pack|
|00001070| 65 64 74 61 62 6c 65 20 | 69 73 20 65 6d 70 74 79 |edtable |is empty|
|00001080| 0d 09 09 c7 64 6d 62 20 | 39 2f 33 30 2f 39 36 3a |....dmb |9/30/96:|
|00001090| 20 77 65 20 64 6f 6e 27 | 74 20 63 61 6c 6c 20 73 | we don'|t call s|
|000010a0| 74 61 72 74 63 61 72 64 | 20 61 6e 79 6d 6f 72 65 |tartcard| anymore|
|000010b0| 0d 09 09 09 c7 69 74 27 | 73 20 74 6f 6f 20 73 6f |.....it'|s too so|
|000010c0| 6f 6e 2e 20 74 68 65 20 | 72 75 6e 74 69 6d 65 20 |on. the |runtime |
|000010d0| 77 69 6c 6c 20 63 61 6c | 6c 20 69 74 20 64 69 72 |will cal|l it dir|
|000010e0| 65 63 74 6c 79 20 61 66 | 74 65 72 20 0d 09 09 09 |ectly af|ter ....|
|000010f0| c7 64 6f 69 6e 67 20 61 | 6c 6c 20 6f 66 20 69 74 |.doing a|ll of it|
|00001100| 73 20 64 65 66 61 75 6c | 74 20 73 65 74 75 70 2e |s defaul|t setup.|
|00001110| 0d 09 09 09 c7 61 6c 73 | 6f 2c 20 73 74 61 72 74 |.....als|o, start|
|00001120| 63 61 72 64 20 6e 65 65 | 64 73 20 74 6f 20 72 75 |card nee|ds to ru|
|00001130| 6e 20 69 6e 20 74 68 65 | 20 63 61 72 64 20 63 6f |n in the| card co|
|00001140| 6e 74 65 78 74 2c 20 77 | 68 69 63 68 20 0d 09 09 |ntext, w|hich ...|
|00001150| 09 c7 6e 6f 6e 65 20 6f | 66 20 74 68 65 73 65 20 |..none o|f these |
|00001160| 65 76 65 6e 74 20 68 61 | 6e 64 6c 65 72 73 20 72 |event ha|ndlers r|
|00001170| 65 71 75 69 72 65 2e 0d | 09 09 c7 64 6d 62 20 39 |equire..|...dmb 9|
|00001180| 2f 31 33 2f 39 36 3a 20 | 77 65 20 6e 6f 20 6c 6f |/13/96: |we no lo|
|00001190| 6e 67 65 72 20 73 75 70 | 70 6f 72 74 20 63 61 72 |nger sup|port car|
|000011a0| 64 73 20 61 73 20 61 70 | 70 73 3a 0d 09 09 09 c7 |ds as ap|ps:.....|
|000011b0| 73 65 74 20 75 70 20 74 | 77 6f 20 69 74 65 6d 73 |set up t|wo items|
|000011c0| 20 69 6e 20 74 68 65 20 | 74 61 62 6c 65 3a 20 66 | in the |table: f|
|000011d0| 69 6c 65 73 20 61 6e 64 | 20 70 61 74 68 0d 09 09 |iles and| path...|
|000011e0| 09 09 c7 66 69 6c 65 73 | 20 69 73 20 61 20 6c 69 |...files| is a li|
|000011f0| 73 74 2c 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 74 |st, cont|aining t|
|00001200| 68 65 20 66 69 6c 65 73 | 20 64 72 6f 70 70 65 64 |he files| dropped|
|00001210| 20 6f 6e 74 6f 20 74 68 | 65 20 61 70 70 0d 09 09 | onto th|e app...|
|00001220| 09 09 c7 79 6f 75 20 63 | 61 6e 20 72 65 66 65 72 |...you c|an refer|
|00001230| 20 74 6f 20 74 68 65 73 | 65 20 61 73 20 66 69 6c | to thes|e as fil|
|00001240| 65 73 20 5b 31 5d 2c 20 | 66 69 6c 65 73 20 5b 32 |es [1], |files [2|
|00001250| 5d 2c 20 65 74 63 2e 0d | 09 09 09 09 c7 70 61 74 |], etc..|.....pat|
|00001260| 68 20 69 73 20 61 20 66 | 69 6c 65 20 73 70 65 63 |h is a f|ile spec|
|00001270| 20 66 6f 72 20 74 68 65 | 20 61 70 70 6c 69 63 61 | for the| applica|
|00001280| 74 69 6f 6e 20 74 68 61 | 74 20 6f 70 65 6e 65 64 |tion tha|t opened|
|00001290| 20 74 68 65 20 63 61 72 | 64 0d 09 09 c7 69 66 20 | the car|d....if |
|000012a0| 74 68 65 72 65 27 73 20 | 61 20 73 74 61 72 74 75 |there's |a startu|
|000012b0| 70 20 73 63 72 69 70 74 | 20 69 6e 20 74 68 65 20 |p script| in the |
|000012c0| 74 61 62 6c 65 2c 20 77 | 65 20 72 75 6e 20 69 74 |table, w|e run it|
|000012d0| 0d 09 09 c7 72 65 74 75 | 72 6e 73 20 74 68 65 20 |....retu|rns the |
|000012e0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 74 61 62 6c |name of |the tabl|
|000012f0| 65 20 77 65 20 63 72 65 | 61 74 65 64 20 66 6f 72 |e we cre|ated for|
|00001300| 20 74 68 65 20 63 61 72 | 64 0d 09 0d 09 c7 6d 61 | the car|d.....ma|
|00001310| 6b 65 20 73 75 72 65 20 | 74 68 65 20 62 61 73 65 |ke sure |the base|
|00001320| 20 74 61 62 6c 65 20 65 | 78 69 73 74 73 0d 09 6c | table e|xists..l|
|00001330| 6f 63 61 6c 20 28 61 64 | 72 42 61 73 65 54 61 62 |ocal (ad|rBaseTab|
|00001340| 6c 65 20 3d 20 40 73 79 | 73 74 65 6d 2e 63 6f 6d |le = @sy|stem.com|
|00001350| 70 69 6c 65 72 2e 63 61 | 72 64 73 29 3b 0d 09 69 |piler.ca|rds);..i|
|00001360| 66 20 6e 6f 74 20 64 65 | 66 69 6e 65 64 20 28 61 |f not de|fined (a|
|00001370| 64 72 42 61 73 65 54 61 | 62 6c 65 5e 29 20 7b 0d |drBaseTa|ble^) {.|
|00001380| 09 09 6e 65 77 20 28 74 | 61 62 6c 65 54 79 70 65 |..new (t|ableType|
|00001390| 2c 20 61 64 72 42 61 73 | 65 54 61 62 6c 65 29 7d |, adrBas|eTable)}|
|000013a0| 3b 0d 09 0d 09 69 66 20 | 73 69 7a 65 4f 66 20 28 |;....if |sizeOf (|
|000013b0| 74 61 62 6c 65 6e 61 6d | 65 29 20 3d 3d 20 30 20 |tablenam|e) == 0 |
|000013c0| 7b 20 c7 49 6f 77 61 20 | 52 75 6e 74 69 6d 65 20 |{ .Iowa |Runtime |
|000013d0| 64 6f 65 73 6e 27 74 20 | 68 61 76 65 20 61 20 6e |doesn't |have a n|
|000013e0| 61 6d 65 2c 20 6d 61 6b | 65 20 6f 6e 65 20 75 70 |ame, mak|e one up|
|000013f0| 0d 09 09 74 61 62 6c 65 | 6e 61 6d 65 20 3d 20 6e |...table|name = n|
|00001400| 61 6d 65 4f 66 20 28 74 | 61 62 6c 65 2e 75 6e 69 |ameOf (t|able.uni|
|00001410| 71 75 65 4e 61 6d 65 20 | 28 22 63 61 72 64 22 2c |queName |("card",|
|00001420| 20 61 64 72 42 61 73 65 | 54 61 62 6c 65 29 5e 29 | adrBase|Table)^)|
|00001430| 7d 3b 0d 09 0d 09 c7 75 | 6e 70 61 63 6b 20 74 68 |};.....u|npack th|
|00001440| 65 20 63 61 72 64 27 73 | 20 74 61 62 6c 65 2c 20 |e card's| table, |
|00001450| 6f 72 20 63 72 65 61 74 | 65 20 61 6e 20 65 6d 70 |or creat|e an emp|
|00001460| 74 79 20 6f 6e 65 20 69 | 66 20 69 74 20 64 6f 65 |ty one i|f it doe|
|00001470| 73 6e 27 74 20 68 61 76 | 65 20 6f 6e 65 0d 09 6c |sn't hav|e one..l|
|00001480| 6f 63 61 6c 20 28 61 64 | 72 54 61 62 6c 65 20 3d |ocal (ad|rTable =|
|00001490| 20 40 61 64 72 42 61 73 | 65 54 61 62 6c 65 5e 2e | @adrBas|eTable^.|
|000014a0| 5b 74 61 62 6c 65 6e 61 | 6d 65 5d 29 3b 0d 09 69 |[tablena|me]);..i|
|000014b0| 66 20 73 69 7a 65 4f 66 | 20 28 70 61 63 6b 65 64 |f sizeOf| (packed|
|000014c0| 74 61 62 6c 65 29 20 3e | 20 30 20 7b 0d 09 09 75 |table) >| 0 {...u|
|000014d0| 6e 70 61 63 6b 20 28 40 | 70 61 63 6b 65 64 74 61 |npack (@|packedta|
|000014e0| 62 6c 65 2c 20 61 64 72 | 54 61 62 6c 65 29 7d 0d |ble, adr|Table)}.|
|000014f0| 09 65 6c 73 65 20 7b 0d | 09 09 6e 65 77 20 28 74 |.else {.|..new (t|
|00001500| 61 62 6c 65 54 79 70 65 | 2c 20 61 64 72 54 61 62 |ableType|, adrTab|
|00001510| 6c 65 29 7d 3b 0d 09 0d | 09 c7 69 6e 69 74 69 61 |le)};...|..initia|
|00001520| 6c 69 7a 65 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |lize the| content|
|00001530| 73 20 6f 66 20 74 68 65 | 20 74 61 62 6c 65 0d 09 |s of the| table..|
|00001540| 69 66 20 64 65 66 69 6e | 65 64 20 28 61 64 72 54 |if defin|ed (adrT|
|00001550| 61 62 6c 65 5e 2e 70 61 | 74 68 29 20 7b 20 c7 67 |able^.pa|th) { .g|
|00001560| 65 74 20 72 69 64 20 6f | 66 20 6f 6c 64 20 66 69 |et rid o|f old fi|
|00001570| 65 6c 64 0d 09 09 64 65 | 6c 65 74 65 20 28 40 61 |eld...de|lete (@a|
|00001580| 64 72 54 61 62 6c 65 5e | 2e 70 61 74 68 29 7d 3b |drTable^|.path)};|
|00001590| 0d 09 69 66 20 64 65 66 | 69 6e 65 64 20 28 61 64 |..if def|ined (ad|
|000015a0| 72 54 61 62 6c 65 5e 2e | 66 69 6c 65 73 29 20 7b |rTable^.|files) {|
|000015b0| 20 c7 74 72 61 6e 73 69 | 74 69 6f 6e 20 66 72 6f | .transi|tion fro|
|000015c0| 6d 20 61 20 74 61 62 6c | 65 20 74 6f 20 61 20 6c |m a tabl|e to a l|
|000015d0| 69 73 74 0d 09 09 64 65 | 6c 65 74 65 20 28 40 61 |ist...de|lete (@a|
|000015e0| 64 72 54 61 62 6c 65 5e | 2e 66 69 6c 65 73 29 7d |drTable^|.files)}|
|000015f0| 3b 0d 09 c7 61 64 72 54 | 61 62 6c 65 5e 2e 70 61 |;...adrT|able^.pa|
|00001600| 74 68 20 3d 20 66 73 61 | 70 70 20 c7 69 74 27 73 |th = fsa|pp .it's|
|00001610| 20 73 74 69 6c 6c 20 63 | 61 6c 6c 65 64 20 61 20 | still c|alled a |
|00001620| 70 61 74 68 2c 20 6a 75 | 73 74 20 6c 69 6b 65 20 |path, ju|st like |
|00001630| 64 65 73 6b 74 6f 70 20 | 73 63 72 69 70 74 73 20 |desktop |scripts |
|00001640| 26 20 64 72 6f 70 6c 65 | 74 73 0d 09 c7 69 66 20 |& drople|ts...if |
|00001650| 66 69 6c 65 6c 69 73 74 | 20 3d 3d 20 6e 69 6c 0d |filelist| == nil.|
|00001660| 09 09 c7 61 64 72 54 61 | 62 6c 65 5e 2e 66 69 6c |...adrTa|ble^.fil|
|00001670| 65 73 20 3d 20 7b 7d 0d | 09 c7 65 6c 73 65 0d 09 |es = {}.|..else..|
|00001680| 09 c7 61 64 72 54 61 62 | 6c 65 5e 2e 66 69 6c 65 |..adrTab|le^.file|
|00001690| 73 20 3d 20 66 69 6c 65 | 6c 69 73 74 0d 09 0d 09 |s = file|list....|
|000016a0| c7 70 61 74 63 68 20 46 | 72 6f 6e 74 69 65 72 27 |.patch F|rontier'|
|000016b0| 73 20 70 61 74 68 73 20 | 74 61 62 6c 65 2c 20 73 |s paths |table, s|
|000016c0| 77 69 74 63 68 20 69 6e | 20 74 68 69 73 20 63 61 |witch in| this ca|
|000016d0| 72 64 27 73 20 6d 65 6e | 75 20 62 61 72 20 69 66 |rd's men|u bar if|
|000016e0| 20 69 74 20 68 61 73 20 | 6f 6e 65 0d 09 63 61 72 | it has |one..car|
|000016f0| 64 2e 73 65 74 47 6c 6f | 62 61 6c 54 61 62 6c 65 |d.setGlo|balTable|
|00001700| 20 28 61 64 72 54 61 62 | 6c 65 2c 20 74 72 75 65 | (adrTab|le, true|
|00001710| 29 3b 0d 09 0d 09 c7 69 | 66 20 64 65 66 69 6e 65 |);.....i|f define|
|00001720| 64 20 28 61 64 72 54 61 | 62 6c 65 5e 2e 73 74 61 |d (adrTa|ble^.sta|
|00001730| 72 74 43 61 72 64 29 0d | 09 09 c7 69 66 20 72 75 |rtCard).|...if ru|
|00001740| 6e 6d 6f 64 65 0d 09 09 | 09 c7 61 64 72 54 61 62 |nmode...|..adrTab|
|00001750| 6c 65 5e 2e 73 74 61 72 | 74 43 61 72 64 20 28 29 |le^.star|tCard ()|
|00001760| 0d 09 09 c7 65 6c 73 65 | 0d 09 09 09 c7 74 72 79 |....else|.....try|
|00001770| 0d 09 09 09 09 c7 61 64 | 72 54 61 62 6c 65 5e 2e |......ad|rTable^.|
|00001780| 73 74 61 72 74 43 61 72 | 64 20 28 29 0d 09 09 09 |startCar|d ()....|
|00001790| c7 65 6c 73 65 0d 09 09 | 09 09 c7 61 64 72 54 61 |.else...|...adrTa|
|000017a0| 62 6c 65 5e 2e 73 74 61 | 72 74 43 61 72 64 45 72 |ble^.sta|rtCardEr|
|000017b0| 72 6f 72 20 3d 20 74 72 | 79 45 72 72 6f 72 0d 09 |ror = tr|yError..|
|000017c0| 72 65 74 75 72 6e 20 28 | 74 61 62 6c 65 6e 61 6d |return (|tablenam|
|000017d0| 65 29 7d 3b 0d 6f 6e 20 | 63 6c 6f 73 20 28 74 61 |e)};.on |clos (ta|
|000017e0| 62 6c 65 6e 61 6d 65 29 | 20 7b 20 c7 63 6c 6f 73 |blename)| { .clos|
|000017f0| 65 20 61 20 63 61 72 64 | 0d 09 6c 6f 63 61 6c 20 |e a card|..local |
|00001800| 28 61 64 72 54 61 62 6c | 65 20 3d 20 40 73 79 73 |(adrTabl|e = @sys|
|00001810| 74 65 6d 2e 63 6f 6d 70 | 69 6c 65 72 2e 63 61 72 |tem.comp|iler.car|
|00001820| 64 73 29 3b 0d 09 69 66 | 20 64 65 66 69 6e 65 64 |ds);..if| defined|
|00001830| 20 28 61 64 72 54 61 62 | 6c 65 5e 29 20 7b 0d 09 | (adrTab|le^) {..|
|00001840| 09 6c 6f 63 61 6c 20 28 | 61 64 72 54 61 62 6c 65 |.local (|adrTable|
|00001850| 20 3d 20 40 61 64 72 54 | 61 62 6c 65 5e 2e 5b 74 | = @adrT|able^.[t|
|00001860| 61 62 6c 65 6e 61 6d 65 | 5d 29 3b 0d 09 09 69 66 |ablename|]);...if|
|00001870| 20 64 65 66 69 6e 65 64 | 20 28 61 64 72 54 61 62 | defined| (adrTab|
|00001880| 6c 65 5e 29 20 7b 0d 09 | 09 09 69 66 20 64 65 66 |le^) {..|..if def|
|00001890| 69 6e 65 64 20 28 61 64 | 72 54 61 62 6c 65 5e 2e |ined (ad|rTable^.|
|000018a0| 70 61 72 65 6e 74 50 61 | 74 68 29 20 7b 0d 09 09 |parentPa|th) {...|
|000018b0| 09 09 63 61 72 64 2e 62 | 72 69 6e 67 43 61 72 64 |..card.b|ringCard|
|000018c0| 54 6f 46 72 6f 6e 74 20 | 28 66 69 6c 65 2e 66 69 |ToFront |(file.fi|
|000018d0| 6c 65 46 72 6f 6d 50 61 | 74 68 20 28 61 64 72 54 |leFromPa|th (adrT|
|000018e0| 61 62 6c 65 5e 2e 70 61 | 72 65 6e 74 50 61 74 68 |able^.pa|rentPath|
|000018f0| 29 29 7d 3b 0d 09 09 09 | 64 65 6c 65 74 65 20 28 |))};....|delete (|
|00001900| 61 64 72 54 61 62 6c 65 | 29 7d 3b 0d 09 09 72 65 |adrTable|)};...re|
|00001910| 74 75 72 6e 20 28 74 72 | 75 65 29 7d 7d 3b 0d 6f |turn (tr|ue)}};.o|
|00001920| 6e 20 65 64 74 62 20 28 | 74 61 62 6c 65 6e 61 6d |n edtb (|tablenam|
|00001930| 65 2c 20 77 69 6e 64 6f | 77 74 69 74 6c 65 29 20 |e, windo|wtitle) |
|00001940| 7b 20 c7 65 64 69 74 20 | 74 68 65 20 74 61 62 6c |{ .edit |the tabl|
|00001950| 65 20 65 6d 62 65 64 64 | 65 64 20 69 6e 20 74 68 |e embedd|ed in th|
|00001960| 65 20 63 61 72 64 20 0d | 09 6c 6f 63 61 6c 20 28 |e card .|.local (|
|00001970| 61 64 72 54 61 62 6c 65 | 20 3d 20 40 73 79 73 74 |adrTable| = @syst|
|00001980| 65 6d 2e 63 6f 6d 70 69 | 6c 65 72 2e 63 61 72 64 |em.compi|ler.card|
|00001990| 73 2e 5b 74 61 62 6c 65 | 6e 61 6d 65 5d 29 3b 0d |s.[table|name]);.|
|000019a0| 09 74 61 72 67 65 74 2e | 73 65 74 20 28 61 64 72 |.target.|set (adr|
|000019b0| 54 61 62 6c 65 29 3b 0d | 09 77 69 6e 64 6f 77 2e |Table);.|.window.|
|000019c0| 73 65 74 54 69 74 6c 65 | 20 28 61 64 72 54 61 62 |setTitle| (adrTab|
|000019d0| 6c 65 2c 20 77 69 6e 64 | 6f 77 74 69 74 6c 65 29 |le, wind|owtitle)|
|000019e0| 3b 0d 09 65 64 69 74 20 | 28 61 64 72 54 61 62 6c |;..edit |(adrTabl|
|000019f0| 65 29 3b 0d 09 46 72 6f | 6e 74 69 65 72 2e 62 72 |e);..Fro|ntier.br|
|00001a00| 69 6e 67 54 6f 46 72 6f | 6e 74 20 28 29 3b 0d 09 |ingToFro|nt ();..|
|00001a10| 72 65 74 75 72 6e 20 28 | 74 72 75 65 29 7d 3b 0d |return (|true)};.|
|00001a20| 6f 6e 20 67 65 74 74 20 | 28 74 61 62 6c 65 6e 61 |on gett |(tablena|
|00001a30| 6d 65 29 20 7b 20 c7 72 | 65 74 75 72 6e 20 74 68 |me) { .r|eturn th|
|00001a40| 65 20 70 61 63 6b 65 64 | 20 74 61 62 6c 65 0d 09 |e packed| table..|
|00001a50| 6c 6f 63 61 6c 20 28 64 | 61 74 61 29 3b 0d 09 70 |local (d|ata);..p|
|00001a60| 61 63 6b 20 28 73 79 73 | 74 65 6d 2e 63 6f 6d 70 |ack (sys|tem.comp|
|00001a70| 69 6c 65 72 2e 63 61 72 | 64 73 2e 5b 74 61 62 6c |iler.car|ds.[tabl|
|00001a80| 65 6e 61 6d 65 5d 2c 20 | 40 64 61 74 61 29 3b 0d |ename], |@data);.|
|00001a90| 09 72 65 74 75 72 6e 20 | 28 64 61 74 61 29 7d 3b |.return |(data)};|
|00001aa0| 0d 6f 6e 20 73 65 74 74 | 20 28 74 61 62 6c 65 6e |.on sett| (tablen|
|00001ab0| 61 6d 65 2c 20 6d 61 6a | 6f 72 73 77 69 74 63 68 |ame, maj|orswitch|
|00001ac0| 29 20 7b 20 c7 74 68 65 | 20 74 61 62 6c 65 20 62 |) { .the| table b|
|00001ad0| 65 63 6f 6d 65 73 20 74 | 68 65 20 63 75 72 72 65 |ecomes t|he curre|
|00001ae0| 6e 74 20 74 61 62 6c 65 | 0d 09 c7 64 6d 62 20 39 |nt table|...dmb 9|
|00001af0| 2f 36 2f 39 36 3a 20 61 | 66 74 65 72 20 6d 61 6b |/6/96: a|fter mak|
|00001b00| 69 6e 67 20 73 75 72 65 | 20 74 68 65 20 74 61 62 |ing sure| the tab|
|00001b10| 6c 65 20 65 78 69 73 74 | 73 2c 20 6c 65 74 20 63 |le exist|s, let c|
|00001b20| 61 72 64 2e 73 65 74 47 | 6c 6f 62 61 6c 54 61 62 |ard.setG|lobalTab|
|00001b30| 6c 65 20 64 6f 20 74 68 | 65 20 77 6f 72 6b 0d 09 |le do th|e work..|
|00001b40| 09 c7 61 6c 73 6f 2c 20 | 68 61 6e 64 6c 65 20 65 |..also, |handle e|
|00001b50| 6d 70 74 79 20 73 74 72 | 69 6e 67 20 66 6f 72 20 |mpty str|ing for |
|00001b60| 77 68 65 6e 20 61 20 63 | 61 72 64 20 69 73 20 73 |when a c|ard is s|
|00001b70| 77 69 74 63 68 69 6e 67 | 20 6f 75 74 0d 09 0d 09 |witching| out....|
|00001b80| 6c 6f 63 61 6c 20 28 61 | 64 72 54 61 62 6c 65 29 |local (a|drTable)|
|00001b90| 3b 0d 09 69 66 20 74 61 | 62 6c 65 6e 61 6d 65 20 |;..if ta|blename |
|00001ba0| 3d 3d 20 22 22 20 7b 0d | 09 09 61 64 72 54 61 62 |== "" {.|..adrTab|
|00001bb0| 6c 65 20 3d 20 6e 69 6c | 7d 0d 09 65 6c 73 65 20 |le = nil|}..else |
|00001bc0| 7b 0d 09 09 61 64 72 54 | 61 62 6c 65 20 3d 20 40 |{...adrT|able = @|
|00001bd0| 73 79 73 74 65 6d 2e 63 | 6f 6d 70 69 6c 65 72 2e |system.c|ompiler.|
|00001be0| 63 61 72 64 73 2e 5b 74 | 61 62 6c 65 6e 61 6d 65 |cards.[t|ablename|
|00001bf0| 5d 3b 0d 09 09 69 66 20 | 6e 6f 74 20 64 65 66 69 |];...if |not defi|
|00001c00| 6e 65 64 20 28 61 64 72 | 54 61 62 6c 65 5e 29 20 |ned (adr|Table^) |
|00001c10| 7b 0d 09 09 09 6e 65 77 | 20 28 74 61 62 6c 65 54 |{....new| (tableT|
|00001c20| 79 70 65 2c 20 61 64 72 | 54 61 62 6c 65 29 7d 7d |ype, adr|Table)}}|
|00001c30| 3b 0d 09 72 65 74 75 72 | 6e 20 28 63 61 72 64 2e |;..retur|n (card.|
|00001c40| 73 65 74 47 6c 6f 62 61 | 6c 54 61 62 6c 65 20 28 |setGloba|lTable (|
|00001c50| 61 64 72 54 61 62 6c 65 | 2c 20 6d 61 6a 6f 72 73 |adrTable|, majors|
|00001c60| 77 69 74 63 68 29 29 7d | 4c 41 4e 44 00 01 00 0c |witch))}|LAND....|
|00001c70| fa de de ad             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+